<!DOCTYPE html>
<html lang="ja">

<head>
  <meta charset="utf-8">
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  <meta http-equiv="Content-Style-Type" content="text/css">
  <script src='../bbs.js'></script>

  <!-- Global site tag (gtag.js) - Google Analytics -->
  <script async src="https://www.googletagmanager.com/gtag/js?id=UA-120820034-1"></script>

  <link href="../bbs.css" type="text/css" rel="stylesheet">
  <link rel="shortcut icon" href="/favicon.ico">
  <title>(WSH 5.6)直前の閉じていないHTMLタグを閉じる | サクラエディタ過去ログ</title>
</head>
<body>
<ul class="side">
        <a href="./" class="toindex">◀マクロトップへ</a>
        <li><div class="list-title">
    <span class="no">63</span>
    <a class="thread-title" href="63.html#63">(WSH 5.6)直前の閉じていないHTMLタグを閉じる</a></div>
    <ul><li><div class="list-title">
    <span class="no">64</span>
    <a class="thread-title" href="63.html#64">(WSH 5.6)カーソル直前のマクロファイルを実行</a></div>
    <ul><li><div class="list-title">
    <span class="no">153</span>
    <a class="thread-title" href="63.html#153">おおっ！キーマクロの読み込み・実行ってキー以外のマクロもあり</a></div>
    <ul><li><div class="list-title">
    <span class="no">189</span>
    <a class="thread-title" href="63.html#189">Re:おおっ！キーマクロの読み込み・実行ってキー以外のマクロもあり</a></div>
    </li><li><div class="list-title">
    <span class="no">190</span>
    <a class="thread-title" href="63.html#190">Re:おおっ！キーマクロの読み込み・実行ってキー以外のマクロもあり</a></div>
    <ul><li><div class="list-title">
    <span class="no">191</span>
    <a class="thread-title" href="63.html#191">マクロ実行マクロの新バージョン</a></div>
    </li></ul></li></ul></li></ul></li><li><div class="list-title">
    <span class="no">65</span>
    <a class="thread-title" href="63.html#65">コメント文込みの js ファイル</a></div>
    </li><li><div class="list-title">
    <span class="no">150</span>
    <a class="thread-title" href="63.html#150">【更新】直前の閉じていない HTML/XML タグを閉じる(1)</a></div>
    <ul><li><div class="list-title">
    <span class="no">315</span>
    <a class="thread-title" href="63.html#315">削除</a></div>
    </li></ul></li><li><div class="list-title">
    <span class="no">151</span>
    <a class="thread-title" href="63.html#151">【更新】直前の閉じていない HTML/XML タグを閉じる(2)</a></div>
    </li><li><div class="list-title">
    <span class="no">152</span>
    <a class="thread-title" href="63.html#152">【更新】直前の閉じていない HTML/XML タグを閉じる(3)</a></div>
    <ul><li><div class="list-title">
    <span class="no">154</span>
    <a class="thread-title" href="63.html#154">大作ですね。ぜひ sakura-editor ブリーフケースのマクロ置き場に</a></div>
    <ul><li><div class="list-title">
    <span class="no">188</span>
    <a class="thread-title" href="63.html#188">Re:大作ですね。ぜひ sakura-editor ブリーフケースのマクロ置き場に</a></div>
    <ul><li><div class="list-title">
    <span class="no">192</span>
    <a class="thread-title" href="63.html#192">興味ある分野です</a></div>
    </li></ul></li></ul></li></ul></li></ul></li>
    </ul><ul class="main"><li><section><h1 id=63>
    <span class="no">[63]</span>
    <a class="thread-title" href="#63">(WSH 5.6)直前の閉じていないHTMLタグを閉じる</a>
    <span class="author">gis_dur</span>
    <time datetime="2004-02-26T20:54:06">2004年02月26日 20:54</time></h1>
    <div class="body">閉じていないタグ又はコメントを閉じます<br>コメントタグ内は無視します<br>古い WSH エンジンでの動作は試していません。<br>投稿許可サイズオーバーにつきコメント文大幅カット<br><br>【closeLastTag.js】<br>var QUIET_MODE   = false;<br>var REGX_ALL     = "&lt;/?[\\w\\d]+\\b(.*/&gt;)?|&lt;!--|--&gt;";<br>var NO_CLOSETAG  = "|area|base|basefont|bgsound|br|col|embed|frame" +<br>  "|hr|img|input|isindex|keygen|link|meta|nextid" +<br>  "|param|spacer|wbr|!doctype|";<br>var stack_tags  = new Array();<br>var sel_text    = "";<br>var ins_text    = "";<br>var tmp_str     = "";<br>var b_comment = false;<br><br>Editor.CancelMode(0);<br>Editor.InsText("_");<br>while ( true ) {<br>  Editor.SearchPrev(REGX_ALL, 22);<br>  sel_text = Editor.GetSelectedString(0).toLowerCase();<br>  if ( sel_text=="" ) {<br>    if ( b_comment )<br>      popup_error("コメントの開閉関係が不正です");<br>    if ( stack_tags.length )<br>      popup_error("開始タグの無い終了タグが見つかりました")<br>    break;<br>  }<br>  if ( b_comment ) {<br>    if ( sel_text=="&lt;!--" ) {<br>      b_comment = false;<br>    }<br>  } else {<br>  // --&gt;<br>    if ( sel_text=="--&gt;" ) {<br>      b_comment = true;<br>  // &lt;!--<br>    } else if ( sel_text=="&lt;!--" ) {<br>      ins_text = "--&gt;";<br>      break;<br>  // &lt;.../&gt;<br>    } else if ( sel_text.indexOf("/&gt;")!=-1 ) {<br>  // &lt;/...&gt;<br>    } else if ( sel_text.indexOf("&lt;/")==0 ) {<br>      sel_text = sel_text.substring(2);<br>      stack_tags.push(sel_text);<br>  // &lt;...&gt;<br>    } else {<br>      sel_text = sel_text.substring(1);<br>      if (NO_CLOSETAG.indexOf("|"+sel_text+"|")!=-1)<br>        continue;<br>      if ( stack_tags.length==0 ) {<br>        ins_text = "&lt;/"+ sel_text +"&gt;";<br>        break;<br>      } else {<br>        tmp_str = stack_tags.pop();<br>        if ( sel_text!=tmp_str ) {<br>          tmp_str = "タグの包含関係が不正です\n" +<br>            "&lt;" + sel_text + "&gt; ... ... " +<br>            "&lt;/" + tmp_str + "&gt;";<br>          popup_error( tmp_str );<br>          break;<br>        }<br>      }<br>    }<br>  }<br>}<br>Editor.CancelMode(0);<br>Editor.Undo(0);<br>Editor.SearchClearMark(0);<br>Editor.InsText(ins_text);<br><br>function popup_error(err_string) {<br>  if (!QUIET_MODE) {<br>    Editor.SearchClearMark(0);<br>    var shell = new ActiveXObject("WScript.Shell");<br>    shell.Popup(err_string, 0, "HTML 文法エラー", 0);<br>  }<br>}<br></div></section>
    <ul><li><section><h1 id=64>
    <span class="no">[64]</span>
    <a class="thread-title" href="#64">(WSH 5.6)カーソル直前のマクロファイルを実行</a>
    <span class="author">gis_dur</span>
    <time datetime="2004-02-26T21:34:39">2004年02月26日 21:34</time></h1>
    <div class="body">カーソル直前の語をファイル名とするマクロを実行<br>folder内 incremental search により部分入力可<br># やはりコメント大幅カット (T-T<br># 無理のある実装。ご自身の責任でどうぞ。<br><br>【0executeMacro.js】<br>// 必ず正しく指定<br>// ## 設定 ##<br> // スクリプト自身のファイル名<br> var SCRIPT_NAME = "0executeMacro.js";<br> // マクロ群のあるフォルダのフルパス<br> var MACRO_FOLDER = "C:\\...\\sakura\\macro";<br> // マクロファイルの拡張子(小文字,正規表現不可)<br> var MACRO_EXT = ".mac|.ppa|.js|.vbs";<br> // Sendkeys用文字列<br> // shortcutキーも可<br> // %:alt ^:ctrl +:shift<br> var KEYS_OPENMACRO = "%ta";//マクロ開く<br> var KEYS_EXECMACRO = "%td";//マクロ実行 <br>// ## 設定終了 ##<br><br>var DIALOG_TYPE=1;<br>var DLGRET_AUTO=-1;<br>var DLGRET_OK=1;<br>var DLGRET_CANCEL=2;<br>var RECKEY_NAME="RecKey.mac";<br>MACRO_EXT="|"+MACRO_EXT+"|";<br><br>var shell=new ActiveXObject("WScript.Shell");<br>var sel_text=get_left();<br>var astr_fileNames=get_macros(sel_text);<br>var dlg_return=pop_dialog(astr_fileNames);<br><br>if (dlg_return!=DLGRET_CANCEL) {<br> del_left();<br> var path=MACRO_FOLDER+"\\"+astr_fileNames[0];<br> shell.Sendkeys(KEYS_OPENMACRO);<br> shell.Sendkeys(path);<br> shell.Sendkeys("{ENTER}");<br> shell.Sendkeys(KEYS_EXECMACRO);<br>}<br><br>function get_left() {<br> var str="";<br> Editor.CancelMode(0);<br> Editor.WordLeft_Sel(0);<br> str=Editor.GetSelectedString(0);<br> if (str.match(/\x0D\x0A|\x0D|\x0A/)) {<br>  str="";<br> }<br> Editor.Right(0);<br> return str;<br>}<br>function del_left() {<br> Editor.CancelMode(0);<br> Editor.WordLeft_Sel(0);<br> Editor.Delete(0);<br>}<br>function get_macros(in_sel_text) {<br> var fsys=new ActiveXObject("Scripting.FileSystemObject");<br> var fld=fsys.GetFolder(MACRO_FOLDER);<br> var fset=new Enumerator(fld.Files);<br> var NOEXT=-1;<br> var str="";<br> var ext="";<br> var arr=new Array();<br> if (in_sel_text=="") return arr;<br> for (;!fset.atEnd();fset.moveNext()) {<br>  str=fset.item().Name.toLowerCase();<br>  i=str.lastIndexOf(".");<br>  if (i==NOEXT) continue;<br>  ext="|"+str.substring(i)+"|";<br>  if (MACRO_EXT.indexOf(ext)==NOEXT) continue;<br>  if (str==SCRIPT_NAME.toLowerCase()) continue;<br>  if (str==RECKEY_NAME) continue;<br>  if (str.indexOf(in_sel_text)==0) arr.push(str);<br> }<br> return arr;<br>}<br>function pop_dialog(in_arr) {<br> if (in_arr.length!=1) return DLGRET_CANCEL;<br> var message="";<br> message+="マクロ「"+in_arr[0]+"」を実行します\n";<br> return shell.Popup(message,0,"マクロ実行の確認",DIALOG_TYPE);<br>}<br></div></section>
    <ul><li><section><h1 id=153>
    <span class="no">[153]</span>
    <a class="thread-title" href="#153">おおっ！キーマクロの読み込み・実行ってキー以外のマクロもあり</a>
    <span class="author">りーや</span>
    <time datetime="2005-06-20T12:19:02">2005年06月20日 12:19</time></h1>
    <div class="body">▼ gis_durさん<br>&gt; カーソル直前の語をファイル名とするマクロを実行<br>&gt;  var KEYS_OPENMACRO = "%ta";//マクロ開く<br>&gt;  var KEYS_EXECMACRO = "%td";//マクロ実行 <br><br>キーマクロの読み込み(機能番号:31252)とキーマクロの実行(同:31253)って、てっきりキーマクロという言葉の先入観で、WSH系のマクロも動かせるとは思ってませんでした。<br>謂われてみれば、外部マクロの登録も混在なので不思議ではないのですが、頭が固くなってたみたいです。<br><br>登録せずに試せて、とても良いですね。PerlScriptもＯＫでした。<br><br>ところでご存知でしょうか？　お礼の意味で老婆心ながら・・・<br>JScriptとPerlScriptでは、eval でマクロの中から違うマクロを読んで実行することが出来ます。Editor. のマクロ関数もＯＫでした。<br>例えば<br>var fso, f, mac;<br>fso = new ActiveXObject("Scripting.FileSystemObject");<br>f = fso.OpenTextFile("c:\\Sakura\\Macro\\test.js", 1);<br>mac = f.ReadAll();<br>eval(mac);<br>のようにして、test.js をマクロとして実行できます。KEYSENDより良いかも知れません。<br>私は、こちらのアプローチで、マクロ・ランチャーみたいのを作り掛けてます。</div></section>
    <ul><li><section><h1 id=189>
    <span class="no">[189]</span>
    <a class="thread-title" href="#189">Re:おおっ！キーマクロの読み込み・実行ってキー以外のマクロもあり</a>
    <span class="author">gis_dur</span>
    <time datetime="2005-07-17T02:33:23">2005年07月17日 02:33</time></h1>
    <div class="body">返事が遅れてしまい申し訳ありません。<br><br>▼ りーやさん<br>&gt; ▼ gis_durさん<br>&gt; &gt; カーソル直前の語をファイル名とするマクロを実行<br>&gt; &gt;  var KEYS_OPENMACRO = "%ta";//マクロ開く<br>&gt; &gt;  var KEYS_EXECMACRO = "%td";//マクロ実行 <br>(中略)<br>&gt; ところでご存知でしょうか？　お礼の意味で老婆心ながら・・・<br>&gt; JScriptとPerlScriptでは、eval でマクロの中から違うマクロを読んで実行することが出来ます。Editor. のマクロ関数もＯＫでした。<br><br>なるほど。eval 関数とは思いつきませんでした。<br><br>[メリット]<br>・keysend の sleep 不足による実行失敗がない<br>・ファイル選択ダイアログが表示されない<br>・sakura がマクロ実行中にマクロ読み込みを行った際、<br>実行中マクロが上書きされないか、などの挙動の心配を<br>せずに済む（！）<br><br>[デメリット]<br>・js または mac ファイルしか実行できない<br><br>検討するまでもなく、新案を採用させて頂きました。<br>貴重な情報、まことに有り難うございました。<br></div></section>
    </li><li><section><h1 id=190>
    <span class="no">[190]</span>
    <a class="thread-title" href="#190">Re:おおっ！キーマクロの読み込み・実行ってキー以外のマクロもあり</a>
    <span class="author">gis_dur</span>
    <time datetime="2005-07-17T02:51:02">2005年07月17日 02:51</time></h1>
    <div class="body">▼ りーやさん<br>&gt; 私は、こちらのアプローチで、マクロ・ランチャーみたいのを作り掛けてます。<br><br>こちらもマクロ実行マクロの新バージョンを作成中です。<br>以下の機能を追加します。と言いつつ本音は、<br>「誰か代わりにやってくれないかなーー」だったりします。<br><br>(1)現在開いているファイルの拡張子に応じて、<br>   マクロ格納フォルダを切り替える。<br>[例]<br>init マクロの実行を指示<br>→ html ファイルならば &lt;MacroDir&gt;/html/init.js を実行<br>→ java ファイルならば &lt;MacroDir&gt;/java/init.js を実行<br>→ 以下同様<br>   ただし、ファイル検索結果が「該当なし」の場合は<br>   さらに &lt;MacroDir&gt;(マクロフォルダ)内を検索する。<br><br>(2)自分自身を実行できない、デフォルトキーマクロを<br>   実行できない、などの制限を外し、その代わり常に<br>   実行確認ダイアログを表示する。<br>[理由]<br>自分自身を実行せずとも、A が B を呼び B が A を呼ぶ<br>ことで簡単に無限ループに陥る可能性を考慮し、このよう<br>に仕様を変更することにしました。<br><br>別のスレッドで上がっていますが、セキュリティソフトに<br>よって色々とブロックされるようですね。上記の無限ルー<br>プは、場合によっては sakura を終了できなくなるという<br>悪質な事態を招きますので、警告を出すのは「あるべき姿」<br>なのかもしれません。<br><br>最後に、アイディアの元となった各エディタ<br><br>TTTEditor: 閉じタグ挿入<br>K2Editor: カーソル直前の単語のファイル名マクロ実行<br><br>の作者の方々に感謝致します。<br></div></section>
    <ul><li><section><h1 id=191>
    <span class="no">[191]</span>
    <a class="thread-title" href="#191">マクロ実行マクロの新バージョン</a>
    <span class="author">りーや</span>
    <time datetime="2005-07-19T00:17:01">2005年07月19日 00:17</time></h1>
    <div class="body"><br>&gt;こちらもマクロ実行マクロの新バージョンを作成中です。<br>&gt;以下の機能を追加します。と言いつつ本音は、<br>&gt;「誰か代わりにやってくれないかなーー」だったりします。<br><br> :-) あは、お気持ちすっごく同意です。<br><br>カーソル位置の前をマクロ名とするのも、コスト軽くていかにもエディタのマクロらしいアプローチだと思います。<br><br>私の方は、選択範囲やカーソル位置の単語を処理対象とするマクロのランチャーにしたいので、苦し紛れに入力補完を使おうとしたりですが、本来の使い方を逸脱しすぎたみたいです。<br><br>自分の環境では、PerlからWin32::GUIで自前のリストボックスで選択してマクロ起動が動いてはいるのですが、GUIのイベントドリブンの処理が大部分になってマクロを逸脱しちゃった感じです。しかもとっても重いし、何度も動しているとsakura.exeのタスクごと落ちたりして危ないモノになっちゃいました。<br><br>しかも、Perl以外のマクロをgis_durさん方式で起動しようとすると、どうも SendKeys 関係をマクロ内から行うとマクロの最後でフラッシュされて一機にキー送信されるみたいで、遅延を挟もうとしてもうまくいきません。そこで、外部コマンド実行でマクロの外のスクリプトを起動してサクラエディタのウインドをターゲットにキー送信をさせるとうまく sleepをはさんでタイミングをとりながら動かせるのですが、ここまで来るとマクロで実現する意味もなく、外部プログラムをマクロから起動するだけで・・・と本末転倒？気味になりそう<br><br>という訳で、私の場合は他の言語のマクロをPerlScriptに移植してマクロ言語の統一を進めてます。<br><br>&gt; 別のスレッドで上がっていますが、セキュリティソフトによって色々とブロックされるようですね。<br><br>ラブレターウイルスのおかげで、WSHのオブジェクトが悪者扱いですね。同じことをさせるのでも Perl の機能を使ったり、別な COM オブジェクトを拾って来て行わせる分にはお咎めなしです。汎用化やノウハウの共有を考えると興ざめなんですが、私自身は言語機能や AutoItXなどに逃げる傾向です。<br></div></section>
    </li></ul></li></ul></li></ul></li><li><section><h1 id=65>
    <span class="no">[65]</span>
    <a class="thread-title" href="#65">コメント文込みの js ファイル</a>
    <span class="author">gis_dur</span>
    <time datetime="2004-02-26T21:56:40">2004年02月26日 21:56</time></h1>
    <div class="body">親記事２つのソースについて<br>いじってみようという物好きな方へ(居るのか？)<br><br>以下のＵＲＬにコメント削除前のファイルを上げておきました。<br>そちらを利用すると若干わかりやすくなると思います。<br><a href=http://gis-dur.hp.infoseek.co.jp/pages/temp/gis_macros.lzh target=_top><nobr>http://<wbr>gis-<wbr>dur.<wbr>hp.<wbr>infoseek<wbr>.<wbr>co.<wbr>jp/<wbr>pages/<wbr>temp/<wbr>gis_macr<wbr>os.<wbr>lzh</nobr></a><br><br># 最初からこうすれば良かったのか！<br></div></section>
    </li><li><section><h1 id=150>
    <span class="no">[150]</span>
    <a class="thread-title" href="#150">【更新】直前の閉じていない HTML/XML タグを閉じる(1)</a>
    <span class="author">gis_dur</span>
    <time datetime="2005-06-19T17:11:41">2005年06月19日 17:11</time></h1>
    <div class="body">1. XML に対応<br>2. 大幅に高速化<br>3. スクロール位置が変わってしまう不具合を解消<br>/************************************************<br>**  Close Last Tag 2.1                         **<br>*************************************************<br>**  A "Sakura-Editor Macro" using WSH 5.6      **<br>**  For sakura.exe ver.1.4.7.0 and over        **<br>**            Copyright (C) 2004-2005 gis_dur  **<br>*************************************************<br>**【動作】                                     **<br>**  カーソル位置より前にある HTML/XML タグを   **<br>**  ファイル先頭に向かって検索し、             **<br>**  1. 閉じていないコメント                    **<br>**  2. 終了タグのない開始タグ                  **<br>**  がある場合、対応する終了タグを挿入します。 **<br>**  コメントタグ内は無視します。               **<br>************************************************/<br><br>// ======== 設定開始 ========<br><br>// true  : 構文エラーメッセージ非表示<br>// false : 構文エラーメッセージ表示<br>var QUIET_MODE  = false;<br>// 文字列 NO_CLOSE_TAG で指定された終了タグについて、<br>// true  : タグの省略を許さない (XML  モード)<br>// false : 常に省略する         (HTML モード)<br>var XML_MODE    = false;<br>// 省略可能な終了タグ<br>var NO_CLOSETAG = "|area|base|basefont|bgsound|br|col|embed|frame" +<br>                  "|hr|img|input|isindex|keygen|link|meta|nextid" +<br>                  "|param|spacer|wbr|!doctype|"; // 小文字で記述<br>// 省略可能な終了タグを増やすには、以下のように追加します<br>// var NO_CLOSETAG += "|colgroup|dd|dt|li|option|p|rp|rt|";<br><br>// ======== 設定終了 ========<br><br>/***********************************************************<br>**  変数定義                                              **<br>***********************************************************/<br>// 正規表現オブジェクト<br>var regExpObj_tags     =<br>    new RegExp("&lt;[/!]?[A-Za-z][\\w\\-:]*([^&gt;]*/&gt;)?|&lt;!--|--&gt;", "g");<br>var regExpObj_newLines =<br>    new RegExp("\x0d\x0a|\x0d|\x0a", "g");<br>// 終了タグスタック<br>var stack_tags = new Array();<br>// 全タグ<br>var TagsArray  = new Array();<br>// タグ総数<br>var ntags = 0;<br>// 全行<br>var LinesArray = new Array();<br>// 行総数<br>var nlines = 0;<br>// カーソル位置<br>var cursorX, cursorY;<br>// カーソル位置より前にある全テキスト<br>var all_text = "";<br>// 現在判定中のテキスト<br>var now_text = "";<br>// カーソル位置に挿入するテキスト<br>var ins_text = "";<br>// テンポラリ文字列<br>var tmp_str  = "";<br><br>// コメントブロック処理中であれば true<br>var b_comment = false;<br><br>// (続く...)</div></section>
    <ul><li><section><h1 id=315>
    <span class="no">[315]</span>
    <a class="thread-title" href="#315">削除</a>
    <span class="author">Luke</span>
    <time datetime="2006-11-17T22:55:50">2006年11月17日 22:55</time></h1>
    <div class="body">-</div></section>
    </li></ul></li><li><section><h1 id=151>
    <span class="no">[151]</span>
    <a class="thread-title" href="#151">【更新】直前の閉じていない HTML/XML タグを閉じる(2)</a>
    <span class="author">gis_dur</span>
    <time datetime="2005-06-19T17:14:19">2005年06月19日 17:14</time></h1>
    <div class="body">/***********************************************************<br>**  主処理                                                **<br>***********************************************************/<br>// 選択状態を解除<br>Editor.CancelMode(0);<br>// カーソル位置取得<br>cursorX = Number(Editor.ExpandParameter('$x'))-1;<br>cursorY = Number(Editor.ExpandParameter('$y'))-1;<br>// 全て選択<br>Editor.SelectAll(0);<br>// 読み込み<br>all_text = Editor.GetSelectedString(0);<br>// 選択状態を解除<br>Editor.CancelMode(0);<br><br>// 改行コード統一<br>all_text = all_text.replace(regExpObj_newLines, "\x0d\x0a");<br>// 行に分解<br>LinesArray  = all_text.split(/\n/);<br>nlines  = LinesArray.length;<br>// カーソル行の文字列を取得<br>tmp_str = LinesArray[cursorY];<br>// カーソルが最終行にあって、かつ最終行に一文字も無い場合、<br>// 現在行は空文字列とする。<br>if (tmp_str == null) tmp_str = "";<br>// カーソル以前の文字列のみ残す<br>if (nlines-(cursorY+1) &gt; 0)<br>    LinesArray.splice(cursorY+1, nlines-(cursorY+1));<br>for (var i=0; i&lt;cursorX; i++)<br>    if (isKanji(tmp_str.charAt(i)))<br>        cursorX--;<br>LinesArray[cursorY] = tmp_str.substring(0, cursorX);<br>// タグのリストを取得<br>TagsArray = LinesArray.join("\n").match(regExpObj_tags);<br>// タグ総数を取得<br>if (TagsArray == null) {<br>    ntags = 0;<br>} else {<br>    ntags = TagsArray.length;<br>}<br><br>// 直前の開始タグを検索する<br>for (var i=ntags-1;i&gt;=0;i--) {<br>    // 注目しているタグまたはコメント<br>    now_text = TagsArray[i].toLowerCase();<br>    // コメントブロック内での処理<br>    if ( b_comment ) {<br>        // コメント開始タグ<br>        if ( now_text=="&lt;!--" ) {<br>            // コメントブロック処理を抜け出す<br>            b_comment = false;<br>        }<br>    // 通常処理<br>    } else {<br>    // --&gt;<br>        if ( now_text=="--&gt;" ) {<br>            // 検索位置より前はコメントブロック<br>            b_comment = true;<br>    // &lt;!--<br>        } else if ( now_text=="&lt;!--" ) {<br>            // コメント終了タグを挿入して終了<br>            ins_text = "--&gt;";<br>            break;<br>    // &lt;.../&gt;<br>        } else if ( now_text.indexOf("/&gt;")!=-1 ) {<br>            // 終了タグが必要ないので無視<br>    // &lt;/...&gt;<br>        } else if ( now_text.indexOf("&lt;/")==0 ) {<br>            now_text = now_text.substring(2);<br>            // 終了タグスタックに追加<br>            stack_tags.push(now_text);<br><br>// (続く...)</div></section>
    </li><li><section><h1 id=152>
    <span class="no">[152]</span>
    <a class="thread-title" href="#152">【更新】直前の閉じていない HTML/XML タグを閉じる(3)</a>
    <span class="author">gis_dur</span>
    <time datetime="2005-06-19T17:15:17">2005年06月19日 17:15</time></h1>
    <div class="body">    // &lt;...&gt;<br>        } else {<br>            now_text = now_text.substring(1);<br>            // 終了タグをとらないタグは無視<br>            if (!XML_MODE &amp;&amp; NO_CLOSETAG.indexOf("|"+now_text+"|")!=-1)<br>                continue;<br>            // 終了タグスタックの要素が無い場合<br>            // 対応する終了タグを挿入して終了<br>            if ( stack_tags.length==0 ) {<br>                ins_text = "&lt;/"+ TagsArray[i].substring(1) +"&gt;";<br>                break;<br>            // 終了タグスタックの最終要素と比較<br>            // 一致すれば無視して次のタグを検索<br>            // 一致しなければタグの包含関係に誤り<br>            // 例：&lt;a&gt; &lt;b&gt; &lt;/a&gt; &lt;/b&gt; ... |←検索開始位置<br>            } else {<br>                tmp_str = stack_tags.pop();<br>                if ( now_text!=tmp_str ) {<br>                    tmp_str = "タグの包含関係が不正です\n" +<br>                              "&lt;" + now_text + "&gt; ... ... " +<br>                              "&lt;/" + tmp_str + "&gt;";<br>                    popup_error( tmp_str );<br>                    stack_tags=new Array();<br>                    break;<br>                }<br>            }<br>        }<br>    }<br>}<br><br>if (ins_text != "") {<br>    // 終了タグを挿入<br>    Editor.InsText(ins_text);<br>} else {<br>    // 不正なコメントブロック<br>    if ( b_comment )<br>        popup_error("コメントの開閉関係が不正です");<br>    // 終了タグスタックに余り要素<br>    if ( stack_tags.length ) {<br>        tmp_str = stack_tags.pop();<br>        tmp_str = "開始タグの無い終了タグが見つかりました\n" +<br>                  "&lt;/" + tmp_str + "&gt;";<br>        popup_error( tmp_str );<br>    }<br>}<br><br>/***********************************************************<br>**  ２バイト文字判定                                      **<br>***********************************************************/<br>function isKanji(c) {<br>    var tmp = escape(c);<br>    if (tmp.charAt(0) != "%") return false;<br>    if (tmp.charAt(1) == "u") return true;<br>    else return false;<br>}<br><br>/***********************************************************<br>**  エラー出力処理                                        **<br>***********************************************************/<br>function popup_error(err_string) {<br>    if (!QUIET_MODE) {<br>        Editor.SearchClearMark(0);<br>        var shell = new ActiveXObject("WScript.Shell");<br>        shell.Popup(err_string, 0, "HTML 文法エラー", 0);<br>    }<br>}<br></div></section>
    <ul><li><section><h1 id=154>
    <span class="no">[154]</span>
    <a class="thread-title" href="#154">大作ですね。ぜひ sakura-editor ブリーフケースのマクロ置き場に</a>
    <span class="author">りーや</span>
    <time datetime="2005-06-20T12:28:43">2005年06月20日 12:28</time></h1>
    <div class="body">gis_durさん、素敵なマクロをありがとうございます。<br><br>RSSからみでXMLにも触り始めたし、利用させていただきます。<br><br>gis_durさんの昔のご投稿を今まで見落としていて、ちょっと損してた気分です。<br>これから、マクロという方の参考にもなるので、よろしかったらマクロ置き場への掲載を是非。<br><br>念のため、マクロ置き場のURLを付けておきます。</div></section>
    <ul><li><section><h1 id=188>
    <span class="no">[188]</span>
    <a class="thread-title" href="#188">Re:大作ですね。ぜひ sakura-editor ブリーフケースのマクロ置き場に</a>
    <span class="author">gis_dur</span>
    <time datetime="2005-07-17T02:12:51">2005年07月17日 02:12</time></h1>
    <div class="body">▼ りーやさん<br>&gt; gis_durさんの昔のご投稿を今まで見落としていて、ちょっと損してた気分です。<br>&gt; これから、マクロという方の参考にもなるので、よろしかったらマクロ置き場への掲載を是非。<br><br>仕事が忙しく返事が遅れてしまい申し訳ありません。<br>件のマクロですが、XML モードでバグがありました。<br><br>[現状の動作]<br>入れ子関係を判断する際、&lt;table&gt;……&lt;/Table&gt; を１<br>セットとして扱っています。<br><br>[期待される動作]<br>XML モード時のみ、&lt;table&gt;&lt;TABLE&gt; などを別のものと<br>して区別します。<br><br>[対処]<br>判断部分（長い for 文）にて以下の修正をする。<br>//---- 修正前<br>    // 注目しているタグまたはコメント<br>    now_text = TagsArray[i].toLowerCase();<br>//---- 修正後<br>    // 注目しているタグまたはコメント<br>    if (!XML_MODE) {<br>        now_text = TagsArray[i].toLowerCase();<br>    } else {<br>        now_text = TagsArray[i];<br>    }<br>//---- ここまで<br><br>他にもバグがありそうです。<br>マクロ置き場についてはもうしばらく見合わせ、修正が<br>落ち着いた頃に掲載を考えます。<br><br>ともあれ、使って頂いてありがとうございます。<br></div></section>
    <ul><li><section><h1 id=192>
    <span class="no">[192]</span>
    <a class="thread-title" href="#192">興味ある分野です</a>
    <span class="author">りーや</span>
    <time datetime="2005-07-19T00:17:03">2005年07月19日 00:17</time></h1>
    <div class="body"><br>▼ gis_durさん<br>&gt;ともあれ、使って頂いてありがとうございます。<br><br>これも Perl に移植させてもらいながら勉強したいなぁと・・・<br>なかなか、そこまで手が回らないのですが、なんとかと思って・・・<br></div></section>
    </li></ul></li></ul></li></ul></li></ul></li></ul></body></html>